home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / BCK TO BILL 1.17 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  38 lines
  1. 0 REM"[141]
  2. 1 [143]OPEN1,8,15,"I0":PRINT#1,"S0:BCK TO BILL*":CLOSE1:SAVE"0:BCK TO BILL 1.17",8
  3. 2 [143]"GOSUBCLR
  4. 3 REM ::::::::::::::::::::::::::::::
  5. 4 REM"::        [206][197][212][215][207][210][203] 64        ::
  6. 5 [143]"::   LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1987, 1988   ::
  7. 6 REM"::       [194][217] [211][193][205] [204][197][215][201][212]       ::
  8. 7 [143] ::::::::::::::::::::::::::::::
  9. 8 [143]"GOSUB
  10. 9 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(8)"[210]ESTORE [194]ILLING [198]ILE
  11. 10 [153][163]8)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":NU$[178][199](0)
  12. 13 [133]"PEEKACKUP ON FILE DEV,DRV,CMD8 ,0 ,I0CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";D,U$,H$
  13. 16 [133]"STR$ESTINATION DEV,DRV,CMD8 ,0 ,I0CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";D1,U1$,H1$
  14. 19 [160]15:[159]15,D1,15,H1$
  15. 22 [159]8,D1,8,U1$[170]":SQRNODE BILLING":[141]67:[160]8:[139]ER[167]88
  16. 25 [160]15:[159]15,D,15,H$
  17. 28 [159]8,D,8,U$[170]":SQRBILLING.BCKUP,S,R":[141]67:[139]ER[167]88
  18. 31 [132]8,MP:[134]A$(MP)
  19. 34 [153][163]7)"(null)VALATNSTR$RIGHT$(null)CHR$ (null)VALLEN(null)(null)STR$ 2
  20. 37 FORI=2TOMP:INPUT#8,A$(I):SR=ST:PRINT"[145]"TAB(21)I:IFSR=0THENNEXT
  21. 40 CLOSE8
  22. 43 PRINTTAB(7)"[215][210][201][212][201][206][199] [210][197][195][207][210][196] 2
  23. 46 [160]15:[159]15,D1,15,H1$
  24. 49 [159]8,D1,8,U1$[170]":SQRNODE BILLING":[141]67:[139]ER[167]88
  25. 52 [141]79:[152]8,MP
  26. 55 [129]RN[178]2[164]MP:[141]82:[152]8,A$(RN):[141]82:[153]"ON"[163]21)RN:[130]:[160]8
  27. 58 [137]88
  28. 61 [143]ER CH
  29. 64 [160]8
  30. 67 [132]15,ER,ER$,ET,ES:[139]ER[179]20[176]ER[178]50[167][142]
  31. 70 A$[178]"STR$ISK #"[170][202]([196](DV),2)[170]" ERROR ="[170][196](ER)[170]" "[170]ER$
  32. 73 [151]53280,2:[153]A$
  33. 76 [142]
  34. 79 [152]15,"P"[199](104)""NU$"":[141]67:[137]67
  35. 82 [152]15,"P"[199](104)[199](RN[171]256[172][181](RN[173]256))[199](RN[173]256)"
  36. 85 GOSUB67:GOTO67
  37. 88 CLOSE9:CLOSE8:CLOSE15:PRINT:END
  38.